home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1990 November / 1990-11.d64 / pharaoh revenge (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  4.7 KB  |  110 lines
  1. 1 rem copyright, 1990, compute publications, intl, ltd  all rights reserved
  2. 10 v=53248:y=222:dimb%(3,8,3),de%(3,8),s%(3,5):s1=10:pokev+21,0:c=255
  3. 20 bl$="                                        ":poke53281,5:poke53280,13
  4. 30 print"[147]":printspc(11);"                   "
  5. 35 printspc(11);" pharaoh's revenge [144]"
  6. 40 printspc(11);"                   [144] "
  7. 45 printspc(11);"         by        [144] "
  8. 50 printspc(11);"                   [144] "
  9. 55 printspc(11);"     fred karg     [144] "
  10. 60 printspc(11);"                   [144] ":printspc(13);"[144]                  
  11. 70 [153]"listcopyright 1990"
  12. 71 [153]"listcompute publications, intl, ltd"
  13. 75 [129]n[178]16128[164]16383:[135]d:[151]n,d:[130]
  14. 80 [153]"load":[151]53281,2:[151]53280,10:sc[178]0:ss[178]0
  15. 90 [153]"load":[151]53281,2:[151]53280,10:sc[178]0:ss[178]0
  16. 95 [153][166]s1);"                      "
  17. 100 [153][166]s1);"     difficulty       stop  "
  18. 105 [153][166]s1);"     usrusrusrusrusrusrusrusrusrusr       stop  "
  19. 110 [153][166]s1);" 1. easy              stop  "
  20. 115 [153][166]s1);"                      stop  "
  21. 120 [153][166]s1);" 2. difficult         stop  "
  22. 125 [153][166]s1);"                      stop  "
  23. 130 [153][166]s1);" 3. superbrains only  stop  "
  24. 135 [153][166]s1);"                      stop  "
  25. 140 [153][166]s1);"  stop                      "
  26. 145 [153][166]s1);"  stop                      "
  27. 150 [153]"please choose from 1 to 3 andcmd";
  28. 160 [161]k$:[139]k$[178]""[167]160
  29. 170 k[178][198](k$):[139]k[177]32[175]k[179]90[167][153]k$"cmd";
  30. 180 [139]k[177]51[176]k[179]49[167]160
  31. 190 k[178]k[171]48:[153]:[153]"               please wait...":[139]k[178]1[167]p[178]0:cl[178]1
  32. 200 [139]k[178]2[167]p[178]0:cl[178]1
  33. 210 [139]k[178]3[167]p[178]2:cl[178]8
  34. 220 [141]450
  35. 225 [145]k[141]480,520,530:[141]680:x[178]32:[129]n[178]0[164]7:[151]2040[170]n,255:[151]v[170]39[170]n,2
  36. 230 [151]v[170]2[172]n,x:[151]v[170]1[170]2[172]n,y:x[178]x[170]40:[139]x[177]255[167]x[178]x[171]255
  37. 240 [130]:[151]v[170]27,255:[151]v[170]23,0:[151]v[170]28,255:[151]v[170]29,0
  38. 250 [151]v[170]16,192:[151]v[170]27,0:[151]v[170]21,255:[151]v[170]37,7:[151]v[170]38,cl
  39. 260 [153]"onsys  1    2    3    4    5    6    7    8  ";
  40. 270 [153][166]10)"ononononononon open crypt number ";
  41. 280 [153]"  moves  ":[153]"   "sc;:k$[178]"?":[141]580:[151]204,0
  42. 290 [161]k$:[151]207,0:[139]k$[178]""[167]290
  43. 300 k1[178][198](k$)[171]49:[139]k1[177]34[176]k1[179]0[167]290
  44. 310 [151]204,1:[139]k$[178]"a"[167][141]590
  45. 320 [139]k$[178]"q"[167][137]420
  46. 330 [139]k$[178]"s"[167][141]590:[141]720
  47. 340 [139]k1[177]7[167]290
  48. 350 sc[178]sc[170]1:[153]k$"cmd";:i[178]0:[139][194](2040[170]k1)[178]c[167][151]2040[170]k1,c[171]1[171]p:[137]370
  49. 360 [151]2040[170]k1,c
  50. 370 [139]b%(p,k1,i)[179][177][171]1[167][141]430:i[178]i[170]1:[137]370
  51. 380 wi[178]1:[129]n[178]0[164]7:[139][194](2040[170]n)[179][177]254[171]p[167]wi[178]0
  52. 390 [130]:[139]wi[178]1[167]p[178]p[171]1:cl[178]cl[171]1:[139]p[178][171]1[167]600
  53. 400 [139]wi[178]1[167][141]590:[151]v[170]38,cl:[139]so[178]1[167][141]700
  54. 410 [137]280
  55. 420 [128]
  56. 430 [139][194](2040[170]b%(p,k1,i))[178]c[167][151]2040[170]b%(p,k1,i),c[171]1[171]p:[142]
  57. 440 [151]2040[170]b%(p,k1,i),c:[142]
  58. 450 so[178]0:[129]m[178]0[164]2:[129]n[178]0[164]7:de%(m,n)[178]n:[130]:[130]
  59. 455 [129]m[178]0[164]2:[129]n[178]0[164]7:de%(m,n)[178]n:[130]:[130]
  60. 460 [129]m[178]0[164]3:[129]n[178]1[164]20:r1[178][181]([187](0)[172]8):r2[178][181]([187](0)[172]8)
  61. 470 t[178]de%(m,r1):de%(m,r1)[178]de%(m,r2):de%(m,r2)[178]t:[130]:[130]:[142]
  62. 480 j[178]0:[129]n[178]0[164]6[169]2:j[178]j[170]1:s%(p,j)[178]de%(0,n)[170]1:[130]:s%(p,5)[178][171]1
  63. 490 [129]i[178]0[164]6[169]2:b%(0,de%(0,i),0)[178]de%(0,i[170]1)
  64. 500 r1[178][181]([187](0)[172]8):[139]r1[178]de%(0,i[170]1)[176]r1[178]de%(0,i)[167]500
  65. 510 b%(0,de%(0,i[170]1),0)[178]r1:[130]:[129]i[178]0[164]7:b%(0,de%(0,i),1)[178][171]1:[130]:[142]
  66. 520 [141]540:s%(p,1)[178]de%(0,0)[170]1:s%(p,2)[178]de%(0,4)[170]1:s%(p,3)[178][171]1:[142]
  67. 530 [129]m[178]0[164]2:s%(m,1)[178]de%(m,0)[170]1:s%(m,2)[178]de%(m,4)[170]1:s%(m,3)[178][171]1:[130]
  68. 535 [141]540:[142]
  69. 540 [129]m[178]0[164]2:[129]i[178]0[164]7:[129]j[178]0[164]2
  70. 550 r1[178][181]([187](0)[172]8):[139]r1[178]de%(m,i)[137]550
  71. 560 b%(m,de%(m,i),j)[178]r1:[130]:b%(m,de%(m,i),3)[178][171]1:[130]:[130]:[129]m[178]0[164]2:[129]j[178]0[164]2
  72. 570 b%(m,de%(m,0),j)[178]de%(m,j[170]1):b%(m,de%(m,4),j)[178]de%(m,j[170]5):[130]:[130]:[142]
  73. 580 [151]781,14:[151]782,30:[151]783,0:[158]65520:[153]k$"cmd";:[142]
  74. 590 [129]n[178]0[164]7:[151]2040[170]n,c:[130]:[142]
  75. 600 [139]ss[178]1[167][153]:[151]v[170]21,0:[153]"";
  76. 605 [139]ss[178]1[167][153]"    pharaoh's treasure eludes you     ";
  77. 610 [139]ss[178]1[167][153]"         better luck next time!          ";:[137]650
  78. 620 [153]:[153]" print#step     sys     print#        poke        sys     poke     (NULL)wait
  79. 630 print"[152][169]      [158]     [152]        [151]        [158]     [151]      [223][146]"
  80. 635 pokev+21,0:print"[145][144]"bl$"[145]";
  81. 640 printspc(10)"  congratulations  "
  82. 645 print" you gained the treasure in "sc-1"moves "
  83. 650 print"       press any key to continue        
  84. 660 [161]k$:[139]k$[178]""[167]660
  85. 670 [137]80
  86. 680 [151]53280,0:[151]53281,0:ki[178]0:[153]"load";:[153][166]19)"printprint#steppoke(NULL)"
  87. 685 [129]n[178]18[164]0[169][171]1
  88. 690 [153][166]n)"print#step";:[129]j[178]0[164]ki[173]2:[153]"tab(";:[130]:[129]m[178]0[164]ki[173]2:[153]"poketab(";:[130]:[153]"(NULL)":ki[178]ki[170]2:[130]:[142]
  89. 695 [129]m[178]0[164]ki[173]2:[153]"poketab(";:[130]:[153]"(NULL)":ki[178]ki[170]2:[130]:[142]
  90. 700 [129]n[178]1[164]4:[151](56093[170]s%(p[170]1,n)[172]5),7:[139]s%(p[170]1,n[170]1)[178][171]1[167]n[178]4
  91. 710 [130]:so[178]0:[142]
  92. 720 [129]n[178]1[164]4:[151](56093[170]s%(p,n)[172]5),5:[139]s%(p,n[170]1)[178][171]1[167]n[178]4
  93. 730 [130]:so[178]1:ss[178]1:[142]:[131]000,084,000,000,168,000,001,169
  94. 740 [131]000,000,168,000,005,069,064,008,000,000,021,069,080,010,170,128
  95. 750 [131]021,085,080,010,170,128,005,085,064,002,170,000,005,085,064,002
  96. 760 [131]170,000,001,085,000,000,168,000,001,085,000,000,168,000,001,085
  97. 770 [131]000,000,168,000,000,084,000,012,000,042,000,002,170,160,010,170
  98. 780 [131]168,010,170,168,042,130,170,042,128,170,170,160,170,154,096,170
  99. 790 [131]170,160,170,170,160,170,176,226,168,048,202,168,010,042,160,000
  100. 800 [131]170,168,010,170,170,042,162,170,170,138,042,162,168,168,168,162
  101. 810 [131]168,170,042,160,042,170,128,000,002,170,000,010,170,128,043,171
  102. 820 [131]160,058,238,176,186,186,184,187,087,184,187,087,184,185,085,184
  103. 830 [131]184,016,184,185,153,184,185,085,184,185,085,184,185,069,184,184
  104. 840 [131]084,184,184,220,184,176,152,056,176,236,056,176,184,056,128,236
  105. 850 [131]008,128,184,008,000,236,000,231,000,255,000,015,255,240,255,255
  106. 860 [131]255,000,000,000,048,000,012,048,000,012,048,000,012,048,000,012
  107. 870 [131]048,000,012,048,000,012,048,000,012,048,000,012,048,000,012,048
  108. 880 [131]000,012,048,000,012,048,000,012,048,000,012,048,000,012,048,000
  109. 890 [131]012,000,000,000,252,000,063,231
  110.